home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / Icons.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  2.1 KB  |  87 lines  |  [TEXT/MPS ]
  1. {
  2.     File:        Icons.p
  3.  
  4.     Contains:    Pascal interfaces for icon-handling routines
  5.  
  6.     Copyright:    © 1990 by Apple Computer, Inc., all rights reserved.
  7.  
  8. }
  9.  
  10. {$IFC UNDEFINED UsingIncludes}
  11.     {$SETC UsingIncludes := 0}
  12. {$ENDC}
  13.  
  14. {$IFC NOT UsingIncludes}
  15.     UNIT Icons;
  16.     INTERFACE
  17. {$ENDC}
  18.  
  19. {$IFC UNDEFINED UsingIcons}
  20. {$SETC UsingIcons := 1}
  21.  
  22. {$I+}
  23. {$SETC IconsIncludes := UsingIncludes}
  24. {$SETC UsingIncludes := 1}
  25. {$SETC UsingIncludes := IconsIncludes}
  26.  
  27. CONST
  28.  
  29.     {    The following are icons for which there are both icon suites and SICNs. }
  30.  
  31.      genericDocumentIconResource        = -4000;
  32.      genericStationeryIconResource        = -3985;
  33.      genericEditionFileIconResource        = -3989;
  34.      genericApplicationIconResource        = -3996;
  35.      genericDeskAccessoryIconResource    = -3991;
  36.     
  37.      genericFolderIconResource            = -3999;
  38.      privateFolderIconResource            = -3994;
  39.     
  40.      floppyIconResource                    = -3998;
  41.      trashIconResource                    = -3993;
  42.     
  43.     { The following are icons for which there are SICNs only. }
  44.     
  45.      desktopIconResource                = -3992;
  46.      openFolderIconResource                = -3997;
  47.      genericHardDiskIconResource        = -3995;
  48.      genericFileServerIconResource        = -3972;
  49.      genericSuitcaseIconResource        = -3970;
  50.      genericMoverObjectIconResource        = -3969;
  51.     
  52.     { The following are icons for which there are icon suites only. }
  53.     
  54.      genericPreferencesIconResource        = -3971;
  55.      genericQueryDocumentIconResource    = -16506;
  56.      genericExtensionIconResource        = -16415;
  57.     
  58.      systemFolderIconResource            = -3983;    
  59.      appleMenuFolderIconResource        = -3982;
  60.      startupFolderIconResource            = -3981;
  61.      ownedFolderIconResource            = -3980;
  62.      dropFolderIconResource                = -3979;
  63.      sharedFolderIconResource            = -3978;
  64.      mountedFolderIconResource            = -3977;
  65.      controlPanelFolderIconResource        = -3976;
  66.      printMonitorFolderIconResource        = -3975;
  67.      preferencesFolderIconResource        = -3974;
  68.      extensionsFolderIconResource        = -3973;
  69.     
  70.      fullTrashIconResource                = -3984;
  71.     
  72.     large1BitMask        =    'ICN#';
  73.     large4BitData        =    'icl4';
  74.     large8BitData        =    'icl8';
  75.     small1BitMask        =    'ics#';
  76.     small4BitData        =    'ics4';
  77.     small8BitData        =    'ics8';
  78.     mini1BitMask        =    'sicn';
  79.     mini4BitData        =    'icm4';
  80.     mini8BitData        =    'icm8';
  81.  
  82. {$ENDC}    { UsingIcons }
  83.  
  84. {$IFC NOT UsingIncludes}
  85.     END.
  86. {$ENDC}
  87.